home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / fifth21 / unws.fiv < prev    next >
Text File  |  1986-03-29  |  185b  |  15 lines
  1. CREATE X
  2. CREATE CHAR
  3. EDIT
  4. variable char
  5. ~UP
  6. EDIT
  7. : x
  8.   begin
  9.     char 1 0 read and while
  10.     char c@ 127 and char c!
  11.     char 1 1 write drop drop
  12.     repeat
  13.   ;
  14. ~UP
  15. ABORT